(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    125550,       2774]
NotebookOptionsPosition[    122449,       2660]
NotebookOutlinePosition[    122885,       2677]
CellTagsIndexPosition[    122842,       2674]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"8bd92e41-bf90-41cf-890f-90d106c6c938"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"bf05c58b-64c6-4175-b0f3-3bd2959e8ee2"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"cd618c90-91b5-4ca5-a1e3-f0cbae16f692"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"082b732a-1525-4376-b3c6-f850eda6c4f0"]
}], "History",
 CellID->1247902091,ExpressionUUID->"01decbf2-6a08-4b27-9124-5b96b2f8779c"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"7d9a8380-6e30-47ef-a911-4604100d6b98"],

Cell["Tutorial", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"a1321153-20a2-4077-ab8f-5e887cd13408"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.743836418965064*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"0780235b-3fbd-4176-bf2f-bb10ceeadfd9"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.7438364192949142`*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"131aadcf-f512-4800-a9a0-8b9a0a7bc356"],

Cell["MaXrd/tutorial/References", "Categorization",
 CellChangeTimes->{{3.718431094416326*^9, 3.7184310959702806`*^9}, 
   3.743836419558731*^9},
 CellLabel->"URI",ExpressionUUID->"45f11e87-da80-4dda-91ec-430f46399860"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->1427428552,ExpressionUUID->"6fe5a1c9-cde3-4628-abe2-a3f224dd4797"],

Cell["XXXX", "Keywords",
 CellID->1251852827,ExpressionUUID->"4f3b9458-c112-4e9c-a38d-ba073e2eeee1"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"c0c5a4e4-ff2c-4115-a6e0-489c3ffab85e"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->218895918,ExpressionUUID->"0e02e927-1913-4940-9b40-7ecff422e368"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"f000b531-b132-4442-83e7-00584a24d842"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->795871300,ExpressionUUID->"6ed8e935-8bdb-4c9b-9aa0-66f04aeac529"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->199739161,ExpressionUUID->"ff80ed14-afd4-42a7-be4e-f7fbede3f00e"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->40625308,ExpressionUUID->"d049f7c2-5396-4614-ba10-0f0bc1d86816"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->357121918,ExpressionUUID->"e0b68d73-a293-4786-9b83-82c4c0d0bdd2"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->35949532,ExpressionUUID->"abc0848b-68d3-4c7f-a4ee-364704929505"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->929432370,ExpressionUUID->"c1f1401c-3986-45a7-9da1-1af4e2828b7d"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"2616891f-113d-4553-92c0-b3bbbf8920a7"]
}, Closed]],

Cell[CellGroupData[{

Cell["References", "Title",
 CellChangeTimes->{{3.7173241986075993`*^9, 3.717324199670919*^9}, {
   3.718351932084754*^9, 3.718351937822554*^9}, 3.718431105847166*^9},
 CellID->509267359,ExpressionUUID->"606449f4-ff15-47a8-a2cf-d95fdeb34f69"],

Cell["\<\
This page contains references for the contents of this package that is \
gathered from external sources.\
\>", "Text",
 CellChangeTimes->{{3.718431107753686*^9, 3.718431164583288*^9}},
 CellID->1534169418,ExpressionUUID->"e01659e8-917a-40ee-a150-744880a21ca3"],

Cell[CellGroupData[{

Cell["Crystal data", "Section",
 CellChangeTimes->{{3.717324204654957*^9, 3.71732420668771*^9}},
 CellID->746296040,ExpressionUUID->"98a235c9-8bcc-4624-925a-cfb6ef6ecc66"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"link", "[", "filename_", "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"Mouseover", "[", 
       RowBox[{"#1", ",", "#2"}], "]"}], "&"}], "@@", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Button", "[", 
         RowBox[{"filename", ",", 
          RowBox[{"SystemOpen", "@", 
           RowBox[{"FileNameJoin", "[", 
            RowBox[{"{", 
             RowBox[{
             "$MaXrdPath", ",", "\"\<ExampleFiles\>\"", ",", "\"\<CIF\>\"", 
              ",", "\"\<Default\>\"", ",", "filename"}], "}"}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Appearance", "\[Rule]", "\"\<Frameless\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"BaseStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<Text\>\"", ",", "#"}], "}"}]}]}], "]"}], "&"}], "/@", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"RGBColor", "[", 
          RowBox[{"0.269993", ",", "0.308507", ",", "0.6"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"RGBColor", "[", 
          RowBox[{
          "0.823529411764706", ",", "0.490196078431373", ",", 
           "0.133333333333333"}], "]"}]}], "}"}]}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Added", " ", "by", " ", "Stian"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<LanthanumHexaboride\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://www.crystallography.net/cod/1000057.html\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]19\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<LaB6.cif\>\""}]}], "\[IndentingNewLine]", 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<LithiumCobaltate\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<https://materialsproject.org/materials/mp-24850/\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]19\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<LiCoO2.cif\>\""}]}], "\[IndentingNewLine]", 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<LithiumManganesePhosphate\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://www.crystallography.net/cod/1011089.html\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]26\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<LiMnO4P.cif\>\""}]}], "\[IndentingNewLine]",
        "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Sodalite\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://www.crystallography.net/cod/1000028.html\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]26\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<Sodalite.cif\>\""}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Perovskite\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://www.crystallography.net/cod/1000022.html\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]26\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<Perovskite.cif\>\""}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<PrussianBlue\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://crystallography.net/cod/4343748.html\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]26\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<PrussianBlue.cif\>\""}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Ferrite\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://www.crystallography.net/cod/9008536.html\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]26\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<Ferrite.cif\>\""}]}], "\[IndentingNewLine]",
        "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Austenite\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://www.crystallography.net/cod/9014056.html\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]26\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<Austenite.cif\>\""}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Polonium\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<https://github.com/andeplane/cif2cell-lammps/tree/master/cifs\>\
\""}], ",", "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]26\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<Po.cif\>\""}]}], "\[IndentingNewLine]", 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Tungsten\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://www.crystallography.net/cod/9008558.html\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]26\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<W.cif\>\""}]}], "\[IndentingNewLine]", 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Quartz\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{"Column", "[", 
         RowBox[{"{", 
          RowBox[{
          "\"\<R.M. Hazen, L.W. Finger, R.J. Hemley, H.K. Mao,\n\
\!\(\*StyleBox[\"High\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"-\",\
FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"pressure\",FontSlant->\"Italic\"]\)\!\
\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"crystal\",FontSlant->\"Italic\"]\)\
\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"chemistry\",FontSlant->\"Italic\"]\
\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"and\",FontSlant->\"Italic\"]\)\!\(\
\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"amorphization\",FontSlant->\"\
Italic\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"of\",FontSlant->\"Italic\"]\)\!\(\
\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"\[Alpha]\",FontSlant->\"Italic\"]\
\)\!\(\*StyleBox[\"-\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"quartz\",\
FontSlant->\"Italic\"]\), \n\!\(\*StyleBox[\"Solid\",FontSlant->\"Italic\"]\)\
\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"State\",FontSlant->\"Italic\"]\)\!\
\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Communications\",FontSlant->\"\
Italic\"]\),\nVolume 72, Issue 5, 1989, Pages 507-511, ISSN 0038-1098\>\"", 
           ",", "\n", 
           RowBox[{
           "Hyperlink", "@", 
            "\"\<https://doi.org/10.1016/0038-1098(89)90607-8\>\""}]}], "}"}],
          "]"}], ",", "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]12\>\"",
         ",", "\[IndentingNewLine]", "\"\<\>\""}], "\[IndentingNewLine]", 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Ice\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://www.crystallography.net/cod/1011023.html\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]30\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<Ice.cif\>\""}]}], "\[IndentingNewLine]", 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Zinc\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://www.crystallography.net/cod/9008522.html\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]30\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<Zn.cif\>\""}]}], "\[IndentingNewLine]", 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Sphalerite\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://www.crystallography.net/cod/1100043.html\>\""}], ",", 
        "\[IndentingNewLine]", "\"\<2017\[Dash]10\[Dash]30\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"link", "@", "\"\<ZnS.cif\>\""}]}], "\[IndentingNewLine]", 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Yoderite\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://rruff.geo.arizona.edu/AMS/download.php?id=00929.cif&down=\
cif\>\""}], ",", "\[IndentingNewLine]", "\"\<2018-05-07\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\""}], "\[IndentingNewLine]", "}"}], 
      ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Previously", " ", "added"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Aluminium\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<CalciumFluoride\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",",
         "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Cobalt(II)Fluoride\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{"Column", "[", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Jauch, Reehuis and Schultz,\n\
\!\(\*StyleBox[\"\[Gamma]\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"-\",\
FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"ray\",FontSlant->\"Italic\"]\)\!\(\*\
StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"and\",FontSlant->\"Italic\"]\)\!\(\
\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"neutron\",FontSlant->\"Italic\"]\)\
\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"diffraction\",FontSlant->\"Italic\
\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"studies\",FontSlant->\"Italic\"]\)\
\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"of\",FontSlant->\"Italic\"]\)\!\(\
\*StyleBox[\" \",FontSlant->\"Italic\"]\)\!\(\*StyleBox[SubscriptBox[\"CoF\", \
\"2\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\":\",FontSlant->\"Italic\"]\)\!\
\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"magnetostriction\",FontSlant->\"\
Italic\"]\)\!\(\*StyleBox[\",\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"electron\",FontSlant->\"Italic\"]\
\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"density\",FontSlant->\"Italic\"]\)\
\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"and\",FontSlant->\"Italic\"]\)\!\(\
\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"magnetic\",FontSlant->\"Italic\"]\
\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"moments\",FontSlant->\"Italic\"]\)\
\!\(\*StyleBox[\",\",FontSlant->\"Italic\"]\)\n\
\!\(\*StyleBox[\"Acta\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Cryst\",FontSlant->\"Italic\"]\). \
(2004). A60, 51-57\>\"", ",", "\n", 
           RowBox[{
           "Hyperlink", "@", 
            "\"\<https://doi.org/10.1107/S0108767303022803\>\""}]}], "}"}], 
         "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\""}], "\[IndentingNewLine]", "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Copper\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<CopperTungstenOxide\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{"Column", "[", 
         RowBox[{"{", 
          RowBox[{
          "\"\<L. Kihlborg and E. Gebert,\n\!\(\*StyleBox[SubscriptBox[\"CuWO\
\", \"4\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[\",\",FontSlant->\"Italic\"]\
\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"a\",FontSlant->\"Italic\"]\)\!\(\*\
StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"distorted\",FontSlant->\"Italic\"]\
\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Wolframite\",FontSlant->\"Italic\"\
]\)\!\(\*StyleBox[\"-\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"type\",\
FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"structure\",FontSlant->\"Italic\"]\
\),\n\!\(\*StyleBox[\"Acta\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Cryst\",FontSlant->\"Italic\"]\). \
(1970). B26, 1020-1026\>\"", ",", "\n", 
           RowBox[{
           "Hyperlink", "@", 
            "\"\<https://doi.org/10.1107/S0567740870003515\>\""}]}], "}"}], 
         "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\""}], "\[IndentingNewLine]", "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"\"\<Corundum\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{"Column", "[", 
         RowBox[{"{", 
          RowBox[{
          "\"\<H. Graafsma, M. Souhassou, A. Puig-Molina, S. Harkema, C. \
Lecomte and \[CapitalARing]. Kvick,\n\
\!\(\*StyleBox[\"Towards\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"extinction\",FontSlant->\"Italic\"\
]\)\!\(\*StyleBox[\"-\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"free\",\
FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"experimental\",FontSlant->\"\
Italic\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"diffraction\",FontSlant->\"Italic\
\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"data\",FontSlant->\"Italic\"]\)\!\
\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"on\",FontSlant->\"Italic\"]\)\!\(\
\*StyleBox[\" \",FontSlant->\"Italic\"]\)\!\(\*StyleBox[SubscriptBox[\"Al\", \
\"2\"],FontSlant->\"Italic\"]\)\!\(\*StyleBox[SubscriptBox[\"O\", \
\"3\"],FontSlant->\"Italic\"]\),\n\!\(\*StyleBox[\"Acta\",FontSlant->\"Italic\
\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"Cryst\",FontSlant->\"Italic\"]\). \
(1998). B54, 193-195\>\"", ",", "\n", 
           RowBox[{
           "Hyperlink", "@", 
            "\"\<https://doi.org/10.1107/S0108768197012949\>\""}]}], "}"}], 
         "]"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\""}], "\[IndentingNewLine]", "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Diamond\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<GalliumArsenide\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",",
         "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Germanium\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Glycyl-L-alanine\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", 
        ",", "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<ManganeseSilicon\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", 
        ",", "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Nickel\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<OxalicAcid\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Silicon\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Silver\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<SodiumChloride\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\""}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Sort", "@", "data"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"table", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{"data", ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Entry name\>\"", ",", "\"\<Source\>\"", ",", "\"\<Access date\>\"",
        ",", "\"\<Local file\>\""}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"r", ",", "c"}], "}"}], "=", 
    RowBox[{"Dimensions", "@", "table"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"table", ",", "\[IndentingNewLine]", 
   RowBox[{"ItemSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Full", ",", "Automatic"}], "}"}]}], ",", "\[IndentingNewLine]", 
   
   RowBox[{"Background", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "None", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"RGBColor", "[", 
             RowBox[{"#", ",", "#", ",", "#"}], "]"}], "&"}], "[", "0.97", 
           "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"Dividers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"False", ",", 
        RowBox[{"{", "True", "}"}], ",", "False"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"False", ",", "True"}], "}"}]}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Alignment", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Left", ",", "Center"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"ItemStyle", "\[Rule]", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Columns", " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"Automatic", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Rows", " ", "*)"}], "\[IndentingNewLine]", "\t", 
      RowBox[{"1", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontWeight", "\[Rule]", "\"\<SemiBold\>\""}], ",", "11", 
         ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Verdana\>\""}]}], "}"}]}], ",",
       "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"(*", " ", 
        RowBox[{"Specific", " ", "regions"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"First", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
       
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Text\>\"", ",", 
           RowBox[{"FontWeight", "\[Rule]", "\"\<SemiBold\>\""}], ",", 
           "Italic", ",", "10"}], "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Second", " ", "column"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Text\>\"", ",", "10"}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Third", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "3"}], "}"}]}], "}"}], "\[Rule]", 
         "\"\<Text\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Fourth", " ", "column"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "4"}], "}"}]}], "}"}], "\[Rule]", 
         "\"\<Text\>\""}]}], "\[IndentingNewLine]", "}"}]}], 
     "\[IndentingNewLine]", "}"}]}]}], "]"}]}], "Input",
 ShowSelection->True,
 CellOpen->False,
 CellChangeTimes->{{3.717325810602585*^9, 3.717325850740181*^9}, {
   3.717326379638932*^9, 3.717326506475932*^9}, {3.7173901866277037`*^9, 
   3.71739033719252*^9}, 3.717390445472249*^9, {3.7173910193949966`*^9, 
   3.717391151157173*^9}, {3.7173912063788033`*^9, 3.717391298199501*^9}, {
   3.7173913422122507`*^9, 3.717391480278418*^9}, {3.717391517885602*^9, 
   3.717391863838093*^9}, {3.717391915629589*^9, 3.717391937245575*^9}, {
   3.717391971544113*^9, 3.717391977263929*^9}, {3.71739203026755*^9, 
   3.7173921237210093`*^9}, {3.717392197029255*^9, 3.7173922086116323`*^9}, {
   3.717392244313883*^9, 3.71739239669591*^9}, {3.717392662177972*^9, 
   3.7173926786669807`*^9}, {3.717392721395159*^9, 3.7173927233365297`*^9}, {
   3.717392804399461*^9, 3.717392820139347*^9}, {3.717392857039784*^9, 
   3.7173928874219217`*^9}, {3.7173929300365458`*^9, 
   3.7173929600065937`*^9}, {3.7173930391665583`*^9, 3.717393046509961*^9}, {
   3.7173930905138483`*^9, 3.717393153305749*^9}, {3.717393196448244*^9, 
   3.717393290869796*^9}, {3.717394312859892*^9, 3.717394494845674*^9}, {
   3.7173993801527576`*^9, 3.717399385333811*^9}, {3.717400300564701*^9, 
   3.717400307844885*^9}, 3.717400348892622*^9, 3.7174007621532393`*^9, {
   3.7174008615818777`*^9, 3.717400863613949*^9}, {3.7174015744616423`*^9, 
   3.717401640625636*^9}, {3.7180174754363317`*^9, 3.718017507260315*^9}, {
   3.7180179957692823`*^9, 3.718018000916287*^9}, {3.7180180917323112`*^9, 
   3.7180181025247583`*^9}, {3.718018381152547*^9, 3.718018390222219*^9}, {
   3.7180185619414263`*^9, 3.718018574492386*^9}, {3.7180210035600967`*^9, 
   3.718021015356797*^9}, {3.718021290440086*^9, 3.718021355103714*^9}, {
   3.718021513823329*^9, 3.718021516171605*^9}, {3.718021817059853*^9, 
   3.71802181727396*^9}, {3.718022472197009*^9, 3.718022506161974*^9}, {
   3.718081832922477*^9, 3.718081897059121*^9}, {3.718082418967832*^9, 
   3.718082430879509*^9}, {3.71808246490596*^9, 3.718082681812717*^9}, {
   3.7180830318306427`*^9, 3.718083074338635*^9}, {3.718083104909205*^9, 
   3.718083128406891*^9}, {3.718083175176035*^9, 3.7180831874558697`*^9}, {
   3.718083273837668*^9, 3.718083287287902*^9}, {3.718083336549369*^9, 
   3.7180834345561438`*^9}, {3.7180836821134768`*^9, 3.718083692914083*^9}, {
   3.718083728571579*^9, 3.718083732652796*^9}, {3.7180837684782057`*^9, 
   3.718083882973383*^9}, {3.7180844132011433`*^9, 3.7180844716228037`*^9}, {
   3.718084722320477*^9, 3.718084755673469*^9}, {3.718092394599881*^9, 
   3.7180924609341593`*^9}, {3.7180924928073606`*^9, 3.71809249735454*^9}, {
   3.7180926058303213`*^9, 3.7180926071881857`*^9}, {3.718092659402639*^9, 
   3.718092671254991*^9}, {3.718092702606367*^9, 3.7180927166002407`*^9}, {
   3.718092785240513*^9, 3.7180927957406607`*^9}, {3.7180936346978893`*^9, 
   3.718093712188332*^9}, {3.718352801749672*^9, 3.7183528944800587`*^9}, {
   3.7183529256515217`*^9, 3.718352953386717*^9}, {3.718353514569664*^9, 
   3.718353539195738*^9}, {3.7183551060325727`*^9, 3.7183551367326612`*^9}, {
   3.7184438340762663`*^9, 3.718443836311404*^9}, {3.735018308691469*^9, 
   3.735018347064616*^9}},
 CellLabel->"In[8]:=",
 CellID->53842780,ExpressionUUID->"579a065b-b09e-45f3-acc8-120c6c09b886"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Entry name\"\>", "\<\"Source\"\>", "\<\"Access date\"\>", \
"\<\"Local file\"\>"},
    {"\<\"Aluminium\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Austenite\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://www.crystallography.net/cod/9014056.html\"\>", 
        True->
        StyleBox["\<\"http://www.crystallography.net/cod/9014056.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://www.crystallography.net/cod/9014056.html"], None},
       ButtonNote->"http://www.crystallography.net/cod/9014056.html"],
      Annotation[#, "http://www.crystallography.net/cod/9014056.html", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]26\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"Austenite.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", 
           "Austenite.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"Austenite.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", 
           "Austenite.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"CalciumFluoride\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Cobalt(II)Fluoride\"\>", 
     TagBox[GridBox[{
        {"\<\"Jauch, Reehuis and Schultz,\\n\\!\\(\\*\\nStyleBox[\\\"\[Gamma]\
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"-\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"ray\\\",\\nFontSlant->\
\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"and\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"neutron\\\",\\nFontSlant->\\\"Italic\
\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\
\\*\\nStyleBox[\\\"diffraction\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"studies\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"of\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[SubscriptBox[\\\"\
CoF\\\", \\\"2\\\"],\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\":\
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\
magnetostriction\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\
,\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"electron\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"density\\\",\\nFontSlant->\\\"Italic\
\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\
\\*\\nStyleBox[\\\"and\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"magnetic\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"moments\\\",\\nFontSlant->\\\"Italic\
\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\n\\!\
\\(\\*\\nStyleBox[\\\"Acta\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"Cryst\\\",\\\
nFontSlant->\\\"Italic\\\"]\\). (2004). A60, 51-57\"\>"},
        {
         TagBox[
          ButtonBox[
           
           PaneSelectorBox[{
            False->"\<\"https://doi.org/10.1107/S0108767303022803\"\>", True->
            
            
            StyleBox["\<\"https://doi.org/10.1107/S0108767303022803\"\>", 
             "HyperlinkActive"]}, Dynamic[
             CurrentValue["MouseOver"]],
            BaseStyle->{"Hyperlink"},
            FrameMargins->0,
            ImageSize->Automatic],
           BaseStyle->"Hyperlink",
           ButtonData->{
             URL["https://doi.org/10.1107/S0108767303022803"], None},
           ButtonNote->"https://doi.org/10.1107/S0108767303022803"],
          
          Annotation[#, "https://doi.org/10.1107/S0108767303022803", 
           "Hyperlink"]& ]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Copper\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"CopperTungstenOxide\"\>", 
     TagBox[GridBox[{
        {"\<\"L. Kihlborg and E. Gebert,\\n\\!\\(\\*\\nStyleBox[SubscriptBox[\
\\\"CuWO\\\", \
\\\"4\\\"],\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"a\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"distorted\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"Wolframite\\\",\\nFontSlant->\\\"\
Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"-\\\",\\nFontSlant->\\\"Italic\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\"type\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"structure\\\",\\\
nFontSlant->\\\"Italic\\\"]\\),\\n\\!\\(\\*\\nStyleBox[\\\"Acta\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"Cryst\\\",\\nFontSlant->\\\"Italic\\\
\"]\\). (1970). B26, 1020-1026\"\>"},
        {
         TagBox[
          ButtonBox[
           
           PaneSelectorBox[{
            False->"\<\"https://doi.org/10.1107/S0567740870003515\"\>", True->
            
            
            StyleBox["\<\"https://doi.org/10.1107/S0567740870003515\"\>", 
             "HyperlinkActive"]}, Dynamic[
             CurrentValue["MouseOver"]],
            BaseStyle->{"Hyperlink"},
            FrameMargins->0,
            ImageSize->Automatic],
           BaseStyle->"Hyperlink",
           ButtonData->{
             URL["https://doi.org/10.1107/S0567740870003515"], None},
           ButtonNote->"https://doi.org/10.1107/S0567740870003515"],
          
          Annotation[#, "https://doi.org/10.1107/S0567740870003515", 
           "Hyperlink"]& ]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Corundum\"\>", 
     TagBox[GridBox[{
        {"\<\"H. Graafsma, M. Souhassou, A. Puig-Molina, S. Harkema, C. \
Lecomte and \[CapitalARing]. \
Kvick,\\n\\!\\(\\*\\nStyleBox[\\\"Towards\\\",\\nFontSlant->\\\"Italic\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"extinction\\\",\
\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"-\\\",\\nFontSlant->\
\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"free\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"experimental\\\"\
,\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"diffraction\\\",\
\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\
\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"data\\\",\\nFontSlant->\\\"Italic\\\
\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"on\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[SubscriptBox[\\\"Al\\\", \
\\\"2\\\"],\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[SubscriptBox[\
\\\"O\\\", \
\\\"3\\\"],\\nFontSlant->\\\"Italic\\\"]\\),\\n\\!\\(\\*\\nStyleBox[\\\"Acta\\\
\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"Cryst\\\",\\\
nFontSlant->\\\"Italic\\\"]\\). (1998). B54, 193-195\"\>"},
        {
         TagBox[
          ButtonBox[
           
           PaneSelectorBox[{
            False->"\<\"https://doi.org/10.1107/S0108768197012949\"\>", True->
            
            
            StyleBox["\<\"https://doi.org/10.1107/S0108768197012949\"\>", 
             "HyperlinkActive"]}, Dynamic[
             CurrentValue["MouseOver"]],
            BaseStyle->{"Hyperlink"},
            FrameMargins->0,
            ImageSize->Automatic],
           BaseStyle->"Hyperlink",
           ButtonData->{
             URL["https://doi.org/10.1107/S0108768197012949"], None},
           ButtonNote->"https://doi.org/10.1107/S0108768197012949"],
          
          Annotation[#, "https://doi.org/10.1107/S0108768197012949", 
           "Hyperlink"]& ]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Diamond\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Ferrite\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://www.crystallography.net/cod/9008536.html\"\>", 
        True->
        StyleBox["\<\"http://www.crystallography.net/cod/9008536.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://www.crystallography.net/cod/9008536.html"], None},
       ButtonNote->"http://www.crystallography.net/cod/9008536.html"],
      Annotation[#, "http://www.crystallography.net/cod/9008536.html", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]26\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"Ferrite.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "Ferrite.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"Ferrite.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "Ferrite.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"GalliumArsenide\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Germanium\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Glycyl-L-alanine\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Ice\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://www.crystallography.net/cod/1011023.html\"\>", 
        True->
        StyleBox["\<\"http://www.crystallography.net/cod/1011023.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://www.crystallography.net/cod/1011023.html"], None},
       ButtonNote->"http://www.crystallography.net/cod/1011023.html"],
      Annotation[#, "http://www.crystallography.net/cod/1011023.html", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]30\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"Ice.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "Ice.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"Ice.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "Ice.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"LanthanumHexaboride\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://www.crystallography.net/cod/1000057.html\"\>", 
        True->
        StyleBox["\<\"http://www.crystallography.net/cod/1000057.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://www.crystallography.net/cod/1000057.html"], None},
       ButtonNote->"http://www.crystallography.net/cod/1000057.html"],
      Annotation[#, "http://www.crystallography.net/cod/1000057.html", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]19\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"LaB6.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "LaB6.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"LaB6.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "LaB6.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"LithiumCobaltate\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"https://materialsproject.org/materials/mp-24850/\"\>", 
        True->
        StyleBox["\<\"https://materialsproject.org/materials/mp-24850/\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["https://materialsproject.org/materials/mp-24850/"], None},
       ButtonNote->"https://materialsproject.org/materials/mp-24850/"],
      Annotation[#, "https://materialsproject.org/materials/mp-24850/", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]19\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"LiCoO2.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "LiCoO2.cif"}]],
       
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"LiCoO2.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "LiCoO2.cif"}]],
       
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"LithiumManganesePhosphate\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://www.crystallography.net/cod/1011089.html\"\>", 
        True->
        StyleBox["\<\"http://www.crystallography.net/cod/1011089.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://www.crystallography.net/cod/1011089.html"], None},
       ButtonNote->"http://www.crystallography.net/cod/1011089.html"],
      Annotation[#, "http://www.crystallography.net/cod/1011089.html", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]26\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"LiMnO4P.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "LiMnO4P.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"LiMnO4P.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "LiMnO4P.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"ManganeseSilicon\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Nickel\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"OxalicAcid\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Perovskite\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://www.crystallography.net/cod/1000022.html\"\>", 
        True->
        StyleBox["\<\"http://www.crystallography.net/cod/1000022.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://www.crystallography.net/cod/1000022.html"], None},
       ButtonNote->"http://www.crystallography.net/cod/1000022.html"],
      Annotation[#, "http://www.crystallography.net/cod/1000022.html", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]26\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"Perovskite.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", 
           "Perovskite.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"Perovskite.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", 
           "Perovskite.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"Polonium\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"https://github.com/andeplane/cif2cell-lammps/tree/master/\
cifs\"\>", True->
        StyleBox["\<\"https://github.com/andeplane/cif2cell-lammps/tree/\
master/cifs\"\>", "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["https://github.com/andeplane/cif2cell-lammps/tree/master/cifs"],
          None},
       ButtonNote->
        "https://github.com/andeplane/cif2cell-lammps/tree/master/cifs"],
      Annotation[#, 
       "https://github.com/andeplane/cif2cell-lammps/tree/master/cifs", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]26\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"Po.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "Po.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"Po.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "Po.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"PrussianBlue\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://crystallography.net/cod/4343748.html\"\>", True->
        StyleBox["\<\"http://crystallography.net/cod/4343748.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://crystallography.net/cod/4343748.html"], None},
       ButtonNote->"http://crystallography.net/cod/4343748.html"],
      Annotation[#, "http://crystallography.net/cod/4343748.html", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]26\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"PrussianBlue.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", 
           "PrussianBlue.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"PrussianBlue.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", 
           "PrussianBlue.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"Quartz\"\>", 
     TagBox[GridBox[{
        {"\<\"R.M. Hazen, L.W. Finger, R.J. Hemley, H.K. \
Mao,\\n\\!\\(\\*\\nStyleBox[\\\"High\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\\
(\\*\\nStyleBox[\\\"-\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\"pressure\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"crystal\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"chemistry\\\",\\nFontSlant->\\\"\
Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\"Italic\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\"and\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\\
nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"amorphization\\\
\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"of\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"\[Alpha]\\\",\\nFontSlant->\\\"\
Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"-\\\",\\nFontSlant->\\\"Italic\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\"quartz\\\",\\nFontSlant->\\\"Italic\\\"]\\), \
\\n\\!\\(\\*\\nStyleBox[\\\"Solid\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\\
*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"State\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"Communications\\\",\\nFontSlant->\\\"\
Italic\\\"]\\),\\nVolume 72, Issue 5, 1989, Pages 507-511, ISSN \
0038-1098\"\>"},
        {
         TagBox[
          ButtonBox[
           
           PaneSelectorBox[{
            False->"\<\"https://doi.org/10.1016/0038-1098(89)90607-8\"\>", 
            True->
            
            StyleBox["\<\"https://doi.org/10.1016/0038-1098(89)90607-8\"\>", 
             "HyperlinkActive"]}, Dynamic[
             CurrentValue["MouseOver"]],
            BaseStyle->{"Hyperlink"},
            FrameMargins->0,
            ImageSize->Automatic],
           BaseStyle->"Hyperlink",
           ButtonData->{
             URL["https://doi.org/10.1016/0038-1098(89)90607-8"], None},
           ButtonNote->"https://doi.org/10.1016/0038-1098(89)90607-8"],
          
          Annotation[#, "https://doi.org/10.1016/0038-1098(89)90607-8", 
           "Hyperlink"]& ]}
       },
       DefaultBaseStyle->"Column",
       GridBoxAlignment->{"Columns" -> {{Left}}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Column"], "\<\"2017\[Dash]10\[Dash]12\"\>", "\<\"\"\>"},
    {"\<\"Silicon\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Silver\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Sodalite\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://www.crystallography.net/cod/1000028.html\"\>", 
        True->
        StyleBox["\<\"http://www.crystallography.net/cod/1000028.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://www.crystallography.net/cod/1000028.html"], None},
       ButtonNote->"http://www.crystallography.net/cod/1000028.html"],
      Annotation[#, "http://www.crystallography.net/cod/1000028.html", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]26\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"Sodalite.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", 
           "Sodalite.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"Sodalite.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", 
           "Sodalite.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"SodiumChloride\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
    {"\<\"Sphalerite\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://www.crystallography.net/cod/1100043.html\"\>", 
        True->
        StyleBox["\<\"http://www.crystallography.net/cod/1100043.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://www.crystallography.net/cod/1100043.html"], None},
       ButtonNote->"http://www.crystallography.net/cod/1100043.html"],
      Annotation[#, "http://www.crystallography.net/cod/1100043.html", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]30\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"ZnS.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "ZnS.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"ZnS.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "ZnS.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"Tungsten\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://www.crystallography.net/cod/9008558.html\"\>", 
        True->
        StyleBox["\<\"http://www.crystallography.net/cod/9008558.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://www.crystallography.net/cod/9008558.html"], None},
       ButtonNote->"http://www.crystallography.net/cod/9008558.html"],
      Annotation[#, "http://www.crystallography.net/cod/9008558.html", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]26\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"W.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "W.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"W.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "W.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]},
    {"\<\"Yoderite\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://rruff.geo.arizona.edu/AMS/download.php?id=00929.\
cif&down=cif\"\>", True->
        StyleBox["\<\"http://rruff.geo.arizona.edu/AMS/download.php?id=00929.\
cif&down=cif\"\>", "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL[
         "http://rruff.geo.arizona.edu/AMS/download.php?id=00929.cif&down=\
cif"], None},
       ButtonNote->
        "http://rruff.geo.arizona.edu/AMS/download.php?id=00929.cif&down=cif"],
      Annotation[#, 
       "http://rruff.geo.arizona.edu/AMS/download.php?id=00929.cif&down=cif", 
       "Hyperlink"]& ], "\<\"2018-05-07\"\>", "\<\"\"\>"},
    {"\<\"Zinc\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://www.crystallography.net/cod/9008522.html\"\>", 
        True->
        StyleBox["\<\"http://www.crystallography.net/cod/9008522.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://www.crystallography.net/cod/9008522.html"], None},
       ButtonNote->"http://www.crystallography.net/cod/9008522.html"],
      Annotation[#, "http://www.crystallography.net/cod/9008522.html", 
       "Hyperlink"]& ], "\<\"2017\[Dash]10\[Dash]30\"\>", 
     PaneSelectorBox[{False->
      ButtonBox["\<\"Zn.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.269993, 0.308507, 0.6]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "Zn.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"], True->
      ButtonBox["\<\"Zn.cif\"\>",
       Appearance->"Frameless",
       BaseStyle->{"Text", 
         RGBColor[0.823529411764706, 0.490196078431373, 0.133333333333333]},
       ButtonFunction:>SystemOpen[
         FileNameJoin[{
          MaXrd`$MaXrdPath, "ExampleFiles", "CIF", "Default", "Zn.cif"}]],
       Evaluator->Automatic,
       Method->"Preemptive"]}, Dynamic[
       CurrentValue["MouseOver"]],
      FrameMargins->0,
      ImageSize->Automatic]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        RGBColor[0.97, 0.97, 0.97]}}},
   GridBoxDividers->{
    "Columns" -> {False, {True}, False}, "Rows" -> {False, True}},
   GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, 
     "RowsIndexed" -> {
      1 -> {FontWeight -> "SemiBold", 11, FontFamily -> "Verdana"}}, 
     "ItemsIndexed" -> {{{2, 32}, {1, 1}} -> {
        "Text", FontWeight -> "SemiBold", Italic, 10}, {{2, 32}, {2, 2}} -> {
        "Text", 10}, {{2, 32}, {3, 3}} -> "Text", {{2, 32}, {4, 4}} -> 
       "Text"}}],
  "Grid"]], "Output",
 ShowCellLabel->False,
 CellChangeTimes->{{3.717391831870941*^9, 3.717391864272451*^9}, 
   3.717391938014051*^9, {3.7173919718574047`*^9, 3.7173919775839777`*^9}, {
   3.717392032590399*^9, 3.717392071030108*^9}, {3.717392112120966*^9, 
   3.717392124132422*^9}, 3.717392209648758*^9, {3.717392248378294*^9, 
   3.717392301869564*^9}, {3.717392332116288*^9, 3.717392359759704*^9}, 
   3.717392397759836*^9, {3.717392671742996*^9, 3.717392679443609*^9}, 
   3.717392727288904*^9, {3.7173928062495728`*^9, 3.717392820632235*^9}, {
   3.717392864222932*^9, 3.7173928877825727`*^9}, 3.717392930472803*^9, 
   3.717392960649493*^9, {3.717393039916593*^9, 3.717393047346219*^9}, {
   3.7173930939020243`*^9, 3.717393153819923*^9}, {3.717393197504854*^9, 
   3.717393291252132*^9}, {3.717394318787953*^9, 3.717394417492453*^9}, {
   3.717394464086917*^9, 3.717394497385666*^9}, 3.71739938630387*^9, 
   3.7174007631704206`*^9, 3.71740086475525*^9, 3.717401583156622*^9, {
   3.717401617989265*^9, 3.717401641052483*^9}, 3.7180175098922033`*^9, 
   3.718018103422986*^9, 3.718018390909823*^9, 3.718018575477934*^9, 
   3.718021824099325*^9, {3.718022486090413*^9, 3.718022512707003*^9}, 
   3.718082433815963*^9, {3.7180826442010593`*^9, 3.718082682603818*^9}, 
   3.7180830413110933`*^9, 3.718083075561596*^9, {3.718083109487208*^9, 
   3.718083128643465*^9}, 3.7180831882435923`*^9, {3.7180832773087873`*^9, 
   3.718083287626718*^9}, 3.718083342216687*^9, {3.718083419141657*^9, 
   3.718083434825224*^9}, 3.718083735078994*^9, 3.718083834788075*^9, 
   3.718083886061562*^9, 3.718084480129497*^9, 3.718084677198785*^9, 
   3.718084762331726*^9, 3.71809220098557*^9, 3.718092396626255*^9, 
   3.718092461962435*^9, 3.718092497734289*^9, 3.7180926725011587`*^9, 
   3.718092719489028*^9, 3.7180927963574677`*^9, {3.7180936355415697`*^9, 
   3.7180937124510736`*^9}, 3.718353542084293*^9, 3.718355138894389*^9, 
   3.718355906532167*^9, 3.7184438469607887`*^9, 3.735018352052411*^9},
 CellLabel->"Out[13]=",
 CellID->1040009793,ExpressionUUID->"ae7e00fb-d419-4978-93de-9f0514bd58d2"]
}, Open  ]],

Cell[TextData[{
 StyleBox["Local files",
  FontSlant->"Italic"],
 " are stored ",
 StyleBox["$MaXrdPath", "MenuName"],
 StyleBox[" \[FilledRightTriangle] ", "MenuNameDelimiter"],
 StyleBox["ExampleFiles", "MenuName"],
 StyleBox[" \[FilledRightTriangle] ", "MenuNameDelimiter"],
 StyleBox["CIF", "MenuName"],
 StyleBox[" \[FilledRightTriangle] ", "MenuNameDelimiter"],
 StyleBox["Default", "MenuName"],
 " if available."
}], "Caption",
 CellChangeTimes->{{3.717394528578861*^9, 3.71739453886267*^9}, {
  3.717394646941248*^9, 3.7173946635965757`*^9}, {3.7180144436983557`*^9, 
  3.718014455325962*^9}, {3.718083475550416*^9, 3.7180834809577007`*^9}, {
  3.718443859501318*^9, 3.718443861723955*^9}},
 CellID->1095018320,ExpressionUUID->"59574b96-db24-4bd8-8809-53d0afcdbc7e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Data from ",
 StyleBox["International Tables for Crystallography",
  FontSlant->"Italic"]
}], "Section",
 CellChangeTimes->{{3.717324204654957*^9, 3.71732420668771*^9}, {
  3.718084802691049*^9, 3.718084811743114*^9}},
 CellID->1837080108,ExpressionUUID->"c3af02e3-000a-41ac-ad51-57e93df0d759"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"link", "[", "filename_", "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"Mouseover", "[", 
       RowBox[{"#1", ",", "#2"}], "]"}], "&"}], "@@", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Button", "[", 
         RowBox[{"filename", ",", 
          RowBox[{"SystemOpen", "@", 
           RowBox[{"FileNameJoin", "[", 
            RowBox[{"{", 
             RowBox[{
             "$MaXrdPath", ",", "\"\<ExampleFiles\>\"", ",", "\"\<CIF\>\"", 
              ",", "filename"}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"Appearance", "\[Rule]", "\"\<Frameless\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"BaseStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<Text\>\"", ",", "#"}], "}"}]}]}], "]"}], "&"}], "/@", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"RGBColor", "[", 
          RowBox[{"0.269993", ",", "0.308507", ",", "0.6"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"RGBColor", "[", 
          RowBox[{
          "0.823529411764706", ",", "0.490196078431373", ",", 
           "0.133333333333333"}], "]"}]}], "}"}]}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Point groups\>\"", ",", "\[IndentingNewLine]", 
        "\"\<symbols, matrix operations\>\"", ",", "\[IndentingNewLine]", 
        "\"\<$PointGroups\>\"", ",", "\[IndentingNewLine]", "\"\<A\>\"", ",", 
        "\[IndentingNewLine]", "\"\<5th (2005)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<10\>\"", ",", "\[IndentingNewLine]", 
        "\"\<10.1.2.2\>\"", ",", "\[IndentingNewLine]", 
        "\"\<770\[Dash]790\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Point groups\>\"", ",", "\[IndentingNewLine]", 
        "\"\<subgroups\>\"", ",", "\[IndentingNewLine]", 
        "\"\<$PointGroups\>\"", ",", "\[IndentingNewLine]", "\"\<D\>\"", ",", 
        "\[IndentingNewLine]", "\"\<1st (2003)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<3.4\>\"", ",", "\[IndentingNewLine]", 
        "\"\<3.4.2.7\>\"", ",", "\[IndentingNewLine]", 
        "\"\<463\[Dash]467\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Space groups\>\"", ",", "\[IndentingNewLine]", 
        "\"\<symbols, symmetry operations\>\"", ",", "\[IndentingNewLine]", 
        "\"\<$SpaceGroups\>\"", ",", "\[IndentingNewLine]", "\"\<A\>\"", ",", 
        "\[IndentingNewLine]", "\"\<5th (2005)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\>\"", ",", "\[IndentingNewLine]", "\"\<112\[Dash]715\>\""}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Space groups\>\"", ",", "\[IndentingNewLine]", 
        "\"\<Hall symbols\>\"", ",", "\[IndentingNewLine]", 
        "\"\<$SpaceGroups\>\"", ",", "\[IndentingNewLine]", "\"\<B\>\"", ",", 
        "\[IndentingNewLine]", "\"\<2nd (1999)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<1.4\>\"", ",", "\[IndentingNewLine]", 
        "\"\<A1.4.2.7\>\"", ",", "\[IndentingNewLine]", 
        "\"\<115\[Dash]119\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Transformation matrices\>\"", ",", "\[IndentingNewLine]", 
        "\"\<matrices\>\"", ",", "\[IndentingNewLine]", 
        "\"\<$TransformationMatrices\>\"", ",", "\[IndentingNewLine]", 
        "\"\<A\>\"", ",", "\[IndentingNewLine]", "\"\<5th (2005)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<5.1\>\"", ",", "\[IndentingNewLine]", 
        "\"\<5.1.3.1\>\"", ",", "\[IndentingNewLine]", 
        "\"\<80\[Dash]83\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Common absorption edges\>\"", ",", "\[IndentingNewLine]", 
        "\"\<wavelengths\>\"", ",", "\[IndentingNewLine]", "\"\<\>\"", ",", 
        "\[IndentingNewLine]", "\"\<C\>\"", ",", "\[IndentingNewLine]", 
        "\"\<3rd (2004)\>\"", ",", "\[IndentingNewLine]", "\"\<4.2\>\"", ",", 
        "\[IndentingNewLine]", "\"\<4.2.2.4\>\"", ",", "\[IndentingNewLine]", 
        "\"\<206\[Dash]208\>\""}], "\[IndentingNewLine]", "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Scattering factors\>\"", ",", "\[IndentingNewLine]", 
        "\"\<tabulated coefficients\>\"", ",", "\[IndentingNewLine]", 
        "\"\<AtomicScatteringFactor\>\"", ",", "\[IndentingNewLine]", 
        "\"\<C\>\"", ",", "\[IndentingNewLine]", "\"\<3rd (2004)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<6.1\>\"", ",", "\[IndentingNewLine]", 
        "\"\<6.1.1.4\>\"", ",", "\[IndentingNewLine]", 
        "\"\<578\[Dash]580\>\""}], "\[IndentingNewLine]", "}"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Sort", "@", "data"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"table", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{"data", ",", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
      "\"\<Data entry\>\"", ",", "\[IndentingNewLine]", "\"\<Description\>\"",
        ",", "\[IndentingNewLine]", "\"\<Symbols\>\"", ",", 
       "\[IndentingNewLine]", "\"\<Volume\>\"", ",", "\[IndentingNewLine]", 
       "\"\<Edition\>\"", ",", "\[IndentingNewLine]", "\"\<Chapter\>\"", ",", 
       "\[IndentingNewLine]", "\"\<Table\>\"", ",", "\[IndentingNewLine]", 
       "\"\<Pages\>\""}], "\[IndentingNewLine]", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"r", ",", "c"}], "}"}], "=", 
    RowBox[{"Dimensions", "@", "table"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"table", ",", "\[IndentingNewLine]", 
   RowBox[{"ItemSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Full", ",", "Automatic"}], "}"}]}], ",", "\[IndentingNewLine]", 
   
   RowBox[{"Background", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "None", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"RGBColor", "[", 
             RowBox[{"#", ",", "#", ",", "#"}], "]"}], "&"}], "[", "0.97", 
           "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"Dividers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"False", ",", 
        RowBox[{"{", "True", "}"}], ",", "False"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"False", ",", "True"}], "}"}]}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Alignment", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Left", ",", "Center"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"ItemStyle", "\[Rule]", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Columns", " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"Automatic", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Rows", " ", "*)"}], "\[IndentingNewLine]", "\t", 
      RowBox[{"1", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontWeight", "\[Rule]", "\"\<SemiBold\>\""}], ",", "11", 
         ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Verdana\>\""}]}], "}"}]}], ",",
       "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"(*", " ", 
        RowBox[{"Specific", " ", "regions"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"First", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
       
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Text\>\"", ",", 
           RowBox[{"FontWeight", "\[Rule]", "\"\<SemiBold\>\""}], ",", 
           "Italic", ",", "10"}], "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Second", " ", "column"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Text\>\"", ",", "Italic", ",", "10"}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Third", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "3"}], "}"}]}], "}"}], "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Text\>\"", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Source Code Pro\>\""}]}], 
          "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Fourth", " ", "column"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "4"}], "}"}]}], "}"}], "\[Rule]", 
         "\"\<Text\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Fifth", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "5"}], "}"}]}], "}"}], "\[Rule]", 
         "\"\<Text\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Sixth", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "6"}], "}"}]}], "}"}], "\[Rule]", 
         "\"\<Text\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Seventh", " ", "column"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"7", ",", "7"}], "}"}]}], "}"}], "\[Rule]", 
         "\"\<Text\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Eight", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "8"}], "}"}]}], "}"}], "\[Rule]", 
         "\"\<Text\>\""}]}], "\[IndentingNewLine]", "}"}]}], 
     "\[IndentingNewLine]", "}"}]}]}], "]"}]}], "Input",
 ShowSelection->True,
 CellOpen->False,
 CellChangeTimes->{{3.717325810602585*^9, 3.717325850740181*^9}, {
   3.717326379638932*^9, 3.717326506475932*^9}, {3.7173901866277037`*^9, 
   3.71739033719252*^9}, 3.717390445472249*^9, {3.7173910193949966`*^9, 
   3.717391151157173*^9}, {3.7173912063788033`*^9, 3.717391298199501*^9}, {
   3.7173913422122507`*^9, 3.717391480278418*^9}, {3.717391517885602*^9, 
   3.717391863838093*^9}, {3.717391915629589*^9, 3.717391937245575*^9}, {
   3.717391971544113*^9, 3.717391977263929*^9}, {3.71739203026755*^9, 
   3.7173921237210093`*^9}, {3.717392197029255*^9, 3.7173922086116323`*^9}, {
   3.717392244313883*^9, 3.71739239669591*^9}, {3.717392662177972*^9, 
   3.7173926786669807`*^9}, {3.717392721395159*^9, 3.7173927233365297`*^9}, {
   3.717392804399461*^9, 3.717392820139347*^9}, {3.717392857039784*^9, 
   3.7173928874219217`*^9}, {3.7173929300365458`*^9, 
   3.7173929600065937`*^9}, {3.7173930391665583`*^9, 3.717393046509961*^9}, {
   3.7173930905138483`*^9, 3.717393153305749*^9}, {3.717393196448244*^9, 
   3.717393290869796*^9}, {3.717394312859892*^9, 3.717394494845674*^9}, {
   3.7173993801527576`*^9, 3.717399385333811*^9}, {3.717400300564701*^9, 
   3.717400307844885*^9}, 3.717400348892622*^9, 3.7174007621532393`*^9, {
   3.7174008615818777`*^9, 3.717400863613949*^9}, {3.7174015744616423`*^9, 
   3.717401640625636*^9}, {3.7180174754363317`*^9, 3.718017507260315*^9}, {
   3.7180179957692823`*^9, 3.718018000916287*^9}, {3.7180180917323112`*^9, 
   3.7180181025247583`*^9}, {3.718018381152547*^9, 3.718018390222219*^9}, {
   3.7180185619414263`*^9, 3.718018574492386*^9}, {3.7180210035600967`*^9, 
   3.718021015356797*^9}, {3.718021290440086*^9, 3.718021355103714*^9}, {
   3.718021513823329*^9, 3.718021516171605*^9}, {3.718021817059853*^9, 
   3.71802181727396*^9}, {3.718022472197009*^9, 3.718022506161974*^9}, {
   3.718081832922477*^9, 3.718081897059121*^9}, {3.718082418967832*^9, 
   3.718082430879509*^9}, {3.71808246490596*^9, 3.718082681812717*^9}, {
   3.7180830318306427`*^9, 3.718083074338635*^9}, {3.718083104909205*^9, 
   3.718083128406891*^9}, {3.718083175176035*^9, 3.7180831874558697`*^9}, {
   3.718083273837668*^9, 3.718083287287902*^9}, {3.718083336549369*^9, 
   3.7180834345561438`*^9}, {3.7180836821134768`*^9, 3.718083692914083*^9}, {
   3.718083728571579*^9, 3.718083732652796*^9}, {3.7180837684782057`*^9, 
   3.718083882973383*^9}, {3.7180844132011433`*^9, 3.7180844716228037`*^9}, {
   3.718084722320477*^9, 3.718084755673469*^9}, {3.718092394599881*^9, 
   3.7180924609341593`*^9}, {3.7180924928073606`*^9, 3.71809249735454*^9}, {
   3.7180926058303213`*^9, 3.7180926071881857`*^9}, {3.718092659402639*^9, 
   3.718092671254991*^9}, {3.718092702606367*^9, 3.7180927166002407`*^9}, {
   3.718092847493168*^9, 3.718092869654236*^9}, {3.718092925648188*^9, 
   3.718092934849984*^9}, {3.7180932499443007`*^9, 3.71809341664668*^9}, {
   3.7180934568112907`*^9, 3.718093479360897*^9}, {3.7180935247905912`*^9, 
   3.718093531107089*^9}, {3.718093593667911*^9, 3.718093597251462*^9}, {
   3.718093735836103*^9, 3.718093755116116*^9}, {3.718094241611391*^9, 
   3.718094269237051*^9}, {3.718096435348633*^9, 3.718096490211665*^9}, 
   3.718356023753891*^9, {3.718356397582925*^9, 3.7183564022865133`*^9}, {
   3.718356453479954*^9, 3.718356460125802*^9}, {3.718356506180728*^9, 
   3.7183566535808563`*^9}, {3.718357049253641*^9, 3.7183570590533752`*^9}, {
   3.718357139311364*^9, 3.7183572333214417`*^9}, {3.718357882984387*^9, 
   3.7183579562712097`*^9}, {3.718358605448505*^9, 3.7183586774889507`*^9}, {
   3.718945603889903*^9, 3.718945620670216*^9}, 3.718949671130762*^9, {
   3.718949714135912*^9, 3.718949745174917*^9}, {3.7302680771356916`*^9, 
   3.730268186410021*^9}, {3.732865040002502*^9, 3.7328650603947983`*^9}, {
   3.732865176406671*^9, 3.732865184462036*^9}, {3.7328652243176394`*^9, 
   3.732865317179324*^9}},
 CellLabel->"In[44]:=",
 CellID->2077245372,ExpressionUUID->"5d254b0c-f411-4879-a498-932d18857110"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Data entry\"\>", "\<\"Description\"\>", "\<\"Symbols\"\>", \
"\<\"Volume\"\>", "\<\"Edition\"\>", "\<\"Chapter\"\>", "\<\"Table\"\>", \
"\<\"Pages\"\>"},
    {"\<\"Common absorption edges\"\>", "\<\"wavelengths\"\>", "\<\"\"\>", \
"\<\"C\"\>", "\<\"3rd (2004)\"\>", "\<\"4.2\"\>", "\<\"4.2.2.4\"\>", "\<\"206\
\[Dash]208\"\>"},
    {"\<\"Point groups\"\>", "\<\"subgroups\"\>", "\<\"$PointGroups\"\>", "\<\
\"D\"\>", "\<\"1st (2003)\"\>", "\<\"3.4\"\>", "\<\"3.4.2.7\"\>", "\<\"463\
\[Dash]467\"\>"},
    {"\<\"Point groups\"\>", "\<\"symbols, matrix operations\"\>", \
"\<\"$PointGroups\"\>", "\<\"A\"\>", "\<\"5th (2005)\"\>", "\<\"10\"\>", \
"\<\"10.1.2.2\"\>", "\<\"770\[Dash]790\"\>"},
    {"\<\"Scattering factors\"\>", "\<\"tabulated coefficients\"\>", \
"\<\"AtomicScatteringFactor\"\>", "\<\"C\"\>", "\<\"3rd (2004)\"\>", "\<\"6.1\
\"\>", "\<\"6.1.1.4\"\>", "\<\"578\[Dash]580\"\>"},
    {"\<\"Space groups\"\>", "\<\"Hall symbols\"\>", "\<\"$SpaceGroups\"\>", \
"\<\"B\"\>", "\<\"2nd (1999)\"\>", "\<\"1.4\"\>", "\<\"A1.4.2.7\"\>", \
"\<\"115\[Dash]119\"\>"},
    {"\<\"Space groups\"\>", "\<\"symbols, symmetry operations\"\>", \
"\<\"$SpaceGroups\"\>", "\<\"A\"\>", "\<\"5th (2005)\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"112\[Dash]715\"\>"},
    {"\<\"Transformation matrices\"\>", "\<\"matrices\"\>", \
"\<\"$TransformationMatrices\"\>", "\<\"A\"\>", "\<\"5th (2005)\"\>", \
"\<\"5.1\"\>", "\<\"5.1.3.1\"\>", "\<\"80\[Dash]83\"\>"}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        RGBColor[0.97, 0.97, 0.97]}}},
   GridBoxDividers->{
    "Columns" -> {False, {True}, False}, "Rows" -> {False, True}},
   GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, 
     "RowsIndexed" -> {
      1 -> {FontWeight -> "SemiBold", 11, FontFamily -> "Verdana"}}, 
     "ItemsIndexed" -> {{{2, 8}, {1, 1}} -> {
        "Text", FontWeight -> "SemiBold", Italic, 10}, {{2, 8}, {2, 2}} -> {
        "Text", Italic, 10}, {{2, 8}, {3, 3}} -> {
        "Text", FontFamily -> "Source Code Pro"}, {{2, 8}, {4, 4}} -> 
       "Text", {{2, 8}, {5, 5}} -> "Text", {{2, 8}, {6, 6}} -> 
       "Text", {{2, 8}, {7, 7}} -> "Text", {{2, 8}, {8, 8}} -> "Text"}}],
  "Grid"]], "Output",
 ShowCellLabel->False,
 CellChangeTimes->{{3.717391831870941*^9, 3.717391864272451*^9}, 
   3.717391938014051*^9, {3.7173919718574047`*^9, 3.7173919775839777`*^9}, {
   3.717392032590399*^9, 3.717392071030108*^9}, {3.717392112120966*^9, 
   3.717392124132422*^9}, 3.717392209648758*^9, {3.717392248378294*^9, 
   3.717392301869564*^9}, {3.717392332116288*^9, 3.717392359759704*^9}, 
   3.717392397759836*^9, {3.717392671742996*^9, 3.717392679443609*^9}, 
   3.717392727288904*^9, {3.7173928062495728`*^9, 3.717392820632235*^9}, {
   3.717392864222932*^9, 3.7173928877825727`*^9}, 3.717392930472803*^9, 
   3.717392960649493*^9, {3.717393039916593*^9, 3.717393047346219*^9}, {
   3.7173930939020243`*^9, 3.717393153819923*^9}, {3.717393197504854*^9, 
   3.717393291252132*^9}, {3.717394318787953*^9, 3.717394417492453*^9}, {
   3.717394464086917*^9, 3.717394497385666*^9}, 3.71739938630387*^9, 
   3.7174007631704206`*^9, 3.71740086475525*^9, 3.717401583156622*^9, {
   3.717401617989265*^9, 3.717401641052483*^9}, 3.7180175098922033`*^9, 
   3.718018103422986*^9, 3.718018390909823*^9, 3.718018575477934*^9, 
   3.718021824099325*^9, {3.718022486090413*^9, 3.718022512707003*^9}, 
   3.718082433815963*^9, {3.7180826442010593`*^9, 3.718082682603818*^9}, 
   3.7180830413110933`*^9, 3.718083075561596*^9, {3.718083109487208*^9, 
   3.718083128643465*^9}, 3.7180831882435923`*^9, {3.7180832773087873`*^9, 
   3.718083287626718*^9}, 3.718083342216687*^9, {3.718083419141657*^9, 
   3.718083434825224*^9}, 3.718083735078994*^9, 3.718083834788075*^9, 
   3.718083886061562*^9, 3.718084480129497*^9, 3.718084677198785*^9, 
   3.718084762331726*^9, 3.71809220098557*^9, 3.718092396626255*^9, 
   3.718092461962435*^9, 3.718092497734289*^9, 3.7180926725011587`*^9, 
   3.718092719489028*^9, 3.718092857897064*^9, {3.718093256352379*^9, 
   3.718093270507967*^9}, {3.718093313361658*^9, 3.718093377699627*^9}, {
   3.718093408843823*^9, 3.718093417119869*^9}, {3.718093468768043*^9, 
   3.7180934797096033`*^9}, {3.7180935269321823`*^9, 3.71809353140095*^9}, {
   3.718093594624713*^9, 3.718093597522121*^9}, {3.718093736437587*^9, 
   3.718093755640204*^9}, {3.7180942430762444`*^9, 3.718094269480493*^9}, {
   3.718096441556465*^9, 3.718096456343883*^9}, 3.718096490757822*^9, 
   3.718356464458156*^9, 3.71835651899856*^9, 3.718356566840674*^9, {
   3.718356626777541*^9, 3.7183566549609632`*^9}, 3.7183572023564987`*^9, {
   3.718357914679965*^9, 3.718357957400425*^9}, {3.71835866355947*^9, 
   3.718358677766337*^9}, {3.718363046932209*^9, 3.7183630480973577`*^9}, 
   3.718945622094948*^9, 3.7189497480465593`*^9, 3.730268187606287*^9, 
   3.732865238421516*^9, 3.7328653184886513`*^9},
 CellLabel->"Out[49]=",
 CellID->320598152,ExpressionUUID->"79079a05-2d82-41d4-a3f3-00e4c827c96d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Data from miscellaneous sources", "Section",
 CellChangeTimes->{{3.717324204654957*^9, 3.71732420668771*^9}, {
  3.718084802691049*^9, 3.718084811743114*^9}, {3.718358212939631*^9, 
  3.718358217066595*^9}},
 CellID->1666510947,ExpressionUUID->"5cb04147-9b0a-48e0-91f5-0b8847f7f648"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"link", "[", "filename_", "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"Mouseover", "[", 
       RowBox[{"#1", ",", "#2"}], "]"}], "&"}], "@@", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Button", "[", 
         RowBox[{"filename", ",", 
          RowBox[{"SystemOpen", "@", 
           RowBox[{"FileNameJoin", "[", 
            RowBox[{"{", 
             RowBox[{
             "$MaXrdPath", ",", "\"\<ExampleFiles\>\"", ",", "\"\<CIF\>\"", 
              ",", "filename"}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"Appearance", "\[Rule]", "\"\<Frameless\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"BaseStyle", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<Text\>\"", ",", "#"}], "}"}]}]}], "]"}], "&"}], "/@", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"RGBColor", "[", 
          RowBox[{"0.269993", ",", "0.308507", ",", "0.6"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"RGBColor", "[", 
          RowBox[{
          "0.823529411764706", ",", "0.490196078431373", ",", 
           "0.133333333333333"}], "]"}]}], "}"}]}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Scattering factors\>\"", ",", "\[IndentingNewLine]", 
        "\"\<tabulated coefficients\>\"", ",", "\[IndentingNewLine]", 
        "\"\<AtomicScatteringFactor\>\"", ",", "\[IndentingNewLine]", 
        "\"\<D. Waasmaier and A. Kirfel\>\"", ",", "\[IndentingNewLine]", 
        "\"\<New analytical scattering-factor functions for free atoms and \
ions\>\"", ",", "\[IndentingNewLine]", 
        "\"\<Acta Cryst. (1995). A51, 416-431\>\"", ",", 
        "\[IndentingNewLine]", "\"\<1995\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<https://doi.org/10.1107/S0108767394013292\>\""}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Transformation matrices\>\"", ",", "\[IndentingNewLine]", 
        "\"\<matrix for transforming from crystallographic\\nto Cartesian \
system\>\"", ",", "\[IndentingNewLine]", "\"\<$TransformationMatrices\>\"", 
        ",", "\[IndentingNewLine]", "\"\<Maureen M. Julian\>\"", ",", 
        "\[IndentingNewLine]", 
        "\"\<Foundations of Crystallography with Computer Applications\>\"", 
        ",", "\[IndentingNewLine]", "\"\<CRC Press\>\"", ",", 
        "\[IndentingNewLine]", "\"\<2015 (2nd ed.)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<9781466552920\>\""}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Transformation matrices\>\"", ",", "\[IndentingNewLine]", 
        "\"\<matrices that tansforms A, B and C-centred cells\>\"", ",", 
        "\[IndentingNewLine]", "\"\<$TransformationMatrices\>\"", ",", 
        "\[IndentingNewLine]", "\"\<Carmelo Giacovazzo et al.\>\"", ",", 
        "\[IndentingNewLine]", 
        "\"\<Fundamentals of Crystallography (p. 141)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<Oxford University Press\>\"", ",", 
        "\[IndentingNewLine]", "\"\<1992 (1st. ed.)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<9780198555780\>\""}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Periodic table\>\"", ",", "\[IndentingNewLine]", 
        "\"\<element names, atomic mass\>\"", ",", "\[IndentingNewLine]", 
        "\"\<$PeriodicTable\>\"", ",", "\[IndentingNewLine]", 
        "\"\<\[LongDash]\>\"", ",", "\[IndentingNewLine]", 
        "\"\<Atomic Weights of the Elements 2015\>\"", ",", 
        "\[IndentingNewLine]", "\"\<(web page)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<2015\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://www.sbcs.qmul.ac.uk/iupac/AtWt/\>\""}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
         "\"\<Physical constants\>\"", ",", "\[IndentingNewLine]", 
          "\"\<fundamental constants\>\"", ",", "\[IndentingNewLine]", 
          "\"\<$PhysicalConstants\>\"", ",", "\[IndentingNewLine]", 
          "\"\<(web page)\>\"", ",", "\[IndentingNewLine]", 
          "\"\<Fundamental Physical Constants from NIST\>\"", ",", 
          "\[IndentingNewLine]", "\"\<(web page)\>\"", ",", 
          "\[IndentingNewLine]", "\"\<2016 (October)\>\"", ",", 
          "\[IndentingNewLine]", 
          RowBox[{
          "Hyperlink", "@", 
           "\"\<https://physics.nist.gov/cuu/Constants/\>\""}]}], 
         "\[IndentingNewLine]", "}"}], ","}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Unconventional space groups\>\"", ",", "\[IndentingNewLine]", 
        "\"\<Symmetry operations and symbols of space groups\\nnot in the \
International Tables for Crystallography\>\"", ",", "\[IndentingNewLine]", 
        "\"\<$SpaceGroups\>\"", ",", "\[IndentingNewLine]", 
        "\"\<Jeremy Karl Cockcroft\>\"", ",", "\[IndentingNewLine]", 
        "\"\<A Hypertext Book of Crystallographic Space Group Diagrams and \
Tables\>\"", ",", "\[IndentingNewLine]", 
        "\"\<Birkbeck College, University of London\>\"", ",", 
        "\[IndentingNewLine]", "\"\<2016-02-01\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://img.chem.ucl.ac.uk/sgp/mainmenu.htm\>\""}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Space groups\>\"", ",", "\[IndentingNewLine]", 
        "\"\<symmetry operations of unconventional space groups\>\"", ",", 
        "\[IndentingNewLine]", "\"\<$SpaceGroups\>\"", ",", 
        "\[IndentingNewLine]", "\"\<Grosse-Kunstleve et al.\>\"", ",", 
        "\[IndentingNewLine]", 
        "\"\<cctbx - Browse alternative space group setting\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\[LongDash]\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\[LongDash]\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://cci.lbl.gov/cctbx/browse_settings.html\>\""}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Unconventional space groups\>\"", ",", "\[IndentingNewLine]", 
        "\"\<Hall symbols\>\"", ",", "\[IndentingNewLine]", 
        "\"\<$SpaceGroups\>\"", ",", "\[IndentingNewLine]", 
        "\"\<R.W. Grosse-Kunstleve\>\"", ",", "\[IndentingNewLine]", 
        "\"\<cctbx - Multiple cell C or F and triple cell H settings\>\"", 
        ",", "\[IndentingNewLine]", "\"\<\[LongDash]\>\"", ",", 
        "\[IndentingNewLine]", "\"\<October 2001\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<https://cci.lbl.gov/cctbx/multiple_cell.html\>\""}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Scattering cross sections\>\"", ",", "\[IndentingNewLine]", 
        "\"\<tabulated data for photoelectric, Rayleigh, Compton and total \
scattering\>\"", ",", "\[IndentingNewLine]", "\"\<AttenuationCoefficient\>\"",
         ",", "\[IndentingNewLine]", "\"\<Tom Schoonjans et al.\>\"", ",", 
        "\[IndentingNewLine]", 
        "\"\<xraylib: a library for interactions of X-rays with matter\>\"", 
        ",", "\[IndentingNewLine]", "\"\<(web page)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<September 2017 (v. 3.3.0)\>\"", ",", 
        "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", "\"\<https://github.com/tschoonj/xraylib\>\""}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Scattering factors\>\"", ",", "\[IndentingNewLine]", 
        "\"\<tabulated data for calculating \!\(\*SubscriptBox[\(f\), \
\(0\)]\), \!\(\*SuperscriptBox[\(f\), \(\[Prime]\)]\) and \
\!\(\*SuperscriptBox[\(f\), \(\[DoublePrime]\)]\)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<AtomicScatteringFactor\>\"", ",", 
        "\[IndentingNewLine]", "\"\<\[LongDash]\>\"", ",", 
        "\[IndentingNewLine]", "\"\<ESRF Anonymous FTP Server\>\"", ",", 
        "\[IndentingNewLine]", "\"\<(web page)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<2013\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<http://ftp.esrf.eu/scisoft/xop2.3/DabaxFiles/\>\""}]}], 
       "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<Scattering factors\>\"", ",", "\[IndentingNewLine]", 
        "\"\<tabulated data for calculating \!\(\*SubscriptBox[\(f\), \
\(0\)]\), \!\(\*SuperscriptBox[\(f\), \(\[Prime]\)]\) and \
\!\(\*SuperscriptBox[\(f\), \(\[DoublePrime]\)]\)\>\"", ",", 
        "\[IndentingNewLine]", "\"\<AtomicScatteringFactor\>\"", ",", 
        "\[IndentingNewLine]", "\"\<D. T. Cromer and D. A. Liberman\>\"", ",",
         "\[IndentingNewLine]", 
        "\"\<Anomalous dispersion calculations near to and on the \
long-wavelength side of an absorption edge\>\"", ",", "\[IndentingNewLine]", 
        "\"\<Acta Cryst. (1981). A37, 267-268\>\"", ",", 
        "\[IndentingNewLine]", "\"\<1981\>\"", ",", "\[IndentingNewLine]", 
        RowBox[{
        "Hyperlink", "@", 
         "\"\<https://doi.org/10.1107/S0567739481000600\>\""}]}], 
       "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Sort", "@", "data"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"table", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{"data", ",", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
      "\"\<Data entry\>\"", ",", "\[IndentingNewLine]", "\"\<Description\>\"",
        ",", "\[IndentingNewLine]", "\"\<Symbols\>\"", ",", 
       "\[IndentingNewLine]", "\"\<Authors\>\"", ",", "\[IndentingNewLine]", 
       "\"\<Title\>\"", ",", "\[IndentingNewLine]", 
       "\"\<Journal, publisher or university\>\"", ",", 
       "\[IndentingNewLine]", "\"\<Year\>\"", ",", "\[IndentingNewLine]", 
       "\"\<Link or ISBN\>\""}], "\[IndentingNewLine]", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"r", ",", "c"}], "}"}], "=", 
    RowBox[{"Dimensions", "@", "table"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"table", ",", "\[IndentingNewLine]", 
   RowBox[{"ItemSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Full", ",", "Automatic"}], "}"}]}], ",", "\[IndentingNewLine]", 
   
   RowBox[{"Background", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "None", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"RGBColor", "[", 
             RowBox[{"#", ",", "#", ",", "#"}], "]"}], "&"}], "[", "0.97", 
           "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"Dividers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"False", ",", 
        RowBox[{"{", "True", "}"}], ",", "False"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"False", ",", "True"}], "}"}]}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Alignment", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Left", ",", "Center"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"ItemStyle", "\[Rule]", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Columns", " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"Automatic", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Rows", " ", "*)"}], "\[IndentingNewLine]", "\t", 
      RowBox[{"1", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FontWeight", "\[Rule]", "\"\<SemiBold\>\""}], ",", "11", 
         ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Verdana\>\""}]}], "}"}]}], ",",
       "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"(*", " ", 
        RowBox[{"Specific", " ", "regions"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"First", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
       
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Text\>\"", ",", 
           RowBox[{"FontWeight", "\[Rule]", "\"\<SemiBold\>\""}], ",", 
           "Italic", ",", "10"}], "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Second", " ", "column"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Text\>\"", ",", "Italic", ",", "10"}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Third", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "3"}], "}"}]}], "}"}], "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Text\>\"", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Source Code Pro\>\""}]}], 
          "}"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Fourth", " ", "column"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "4"}], "}"}]}], "}"}], "\[Rule]", 
         "\"\<Text\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Fifth", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "5"}], "}"}]}], "}"}], "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Text\>\"", ",", "Italic"}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Sixth", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "6"}], "}"}]}], "}"}], "\[Rule]", 
         "\"\<Text\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Seventh", " ", "column"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"7", ",", "7"}], "}"}]}], "}"}], "\[Rule]", 
         "\"\<Text\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Eight", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "r"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "8"}], "}"}]}], "}"}], "\[Rule]", 
         "\"\<Text\>\""}]}], "\[IndentingNewLine]", "}"}]}], 
     "\[IndentingNewLine]", "}"}]}]}], "]"}]}], "Input",
 ShowSelection->True,
 CellOpen->False,
 CellChangeTimes->{{3.717325810602585*^9, 3.717325850740181*^9}, {
   3.717326379638932*^9, 3.717326506475932*^9}, {3.7173901866277037`*^9, 
   3.71739033719252*^9}, 3.717390445472249*^9, {3.7173910193949966`*^9, 
   3.717391151157173*^9}, {3.7173912063788033`*^9, 3.717391298199501*^9}, {
   3.7173913422122507`*^9, 3.717391480278418*^9}, {3.717391517885602*^9, 
   3.717391863838093*^9}, {3.717391915629589*^9, 3.717391937245575*^9}, {
   3.717391971544113*^9, 3.717391977263929*^9}, {3.71739203026755*^9, 
   3.7173921237210093`*^9}, {3.717392197029255*^9, 3.7173922086116323`*^9}, {
   3.717392244313883*^9, 3.71739239669591*^9}, {3.717392662177972*^9, 
   3.7173926786669807`*^9}, {3.717392721395159*^9, 3.7173927233365297`*^9}, {
   3.717392804399461*^9, 3.717392820139347*^9}, {3.717392857039784*^9, 
   3.7173928874219217`*^9}, {3.7173929300365458`*^9, 
   3.7173929600065937`*^9}, {3.7173930391665583`*^9, 3.717393046509961*^9}, {
   3.7173930905138483`*^9, 3.717393153305749*^9}, {3.717393196448244*^9, 
   3.717393290869796*^9}, {3.717394312859892*^9, 3.717394494845674*^9}, {
   3.7173993801527576`*^9, 3.717399385333811*^9}, {3.717400300564701*^9, 
   3.717400307844885*^9}, 3.717400348892622*^9, 3.7174007621532393`*^9, {
   3.7174008615818777`*^9, 3.717400863613949*^9}, {3.7174015744616423`*^9, 
   3.717401640625636*^9}, {3.7180174754363317`*^9, 3.718017507260315*^9}, {
   3.7180179957692823`*^9, 3.718018000916287*^9}, {3.7180180917323112`*^9, 
   3.7180181025247583`*^9}, {3.718018381152547*^9, 3.718018390222219*^9}, {
   3.7180185619414263`*^9, 3.718018574492386*^9}, {3.7180210035600967`*^9, 
   3.718021015356797*^9}, {3.718021290440086*^9, 3.718021355103714*^9}, {
   3.718021513823329*^9, 3.718021516171605*^9}, {3.718021817059853*^9, 
   3.71802181727396*^9}, {3.718022472197009*^9, 3.718022506161974*^9}, {
   3.718081832922477*^9, 3.718081897059121*^9}, {3.718082418967832*^9, 
   3.718082430879509*^9}, {3.71808246490596*^9, 3.718082681812717*^9}, {
   3.7180830318306427`*^9, 3.718083074338635*^9}, {3.718083104909205*^9, 
   3.718083128406891*^9}, {3.718083175176035*^9, 3.7180831874558697`*^9}, {
   3.718083273837668*^9, 3.718083287287902*^9}, {3.718083336549369*^9, 
   3.7180834345561438`*^9}, {3.7180836821134768`*^9, 3.718083692914083*^9}, {
   3.718083728571579*^9, 3.718083732652796*^9}, {3.7180837684782057`*^9, 
   3.718083882973383*^9}, {3.7180844132011433`*^9, 3.7180844716228037`*^9}, {
   3.718084722320477*^9, 3.718084755673469*^9}, {3.718092394599881*^9, 
   3.7180924609341593`*^9}, {3.7180924928073606`*^9, 3.71809249735454*^9}, {
   3.7180926058303213`*^9, 3.7180926071881857`*^9}, {3.718092659402639*^9, 
   3.718092671254991*^9}, {3.718092702606367*^9, 3.7180927166002407`*^9}, {
   3.718092847493168*^9, 3.718092869654236*^9}, {3.718092925648188*^9, 
   3.718092934849984*^9}, {3.7180932499443007`*^9, 3.71809341664668*^9}, {
   3.7180934568112907`*^9, 3.718093479360897*^9}, {3.7180935247905912`*^9, 
   3.718093531107089*^9}, {3.718093593667911*^9, 3.718093597251462*^9}, {
   3.718093735836103*^9, 3.718093755116116*^9}, {3.718094241611391*^9, 
   3.718094269237051*^9}, {3.718096435348633*^9, 3.718096490211665*^9}, 
   3.718356023753891*^9, {3.718356397582925*^9, 3.7183564022865133`*^9}, {
   3.718356453479954*^9, 3.718356460125802*^9}, {3.718356506180728*^9, 
   3.7183566535808563`*^9}, {3.718357049253641*^9, 3.7183570590533752`*^9}, {
   3.718357139311364*^9, 3.7183572333214417`*^9}, {3.718357882984387*^9, 
   3.7183579562712097`*^9}, {3.71835822629532*^9, 3.718358313831489*^9}, {
   3.718358369952437*^9, 3.718358461713585*^9}, {3.7183586910436068`*^9, 
   3.7183586941432943`*^9}, {3.7183587992923*^9, 3.718358856667894*^9}, {
   3.718358891958149*^9, 3.718358910257268*^9}, {3.718358990381106*^9, 
   3.7183590428612423`*^9}, {3.718359096715061*^9, 3.718359159005515*^9}, {
   3.71835922807301*^9, 3.718359247374448*^9}, {3.718359306595496*^9, 
   3.7183593132087507`*^9}, {3.718359345630906*^9, 3.718359390560596*^9}, {
   3.718359444006898*^9, 3.718359450794775*^9}, {3.718362463451482*^9, 
   3.718362552322157*^9}, {3.718440970279037*^9, 3.718441006309108*^9}, 
   3.719813796041225*^9, {3.719813829942713*^9, 3.719813852938258*^9}, {
   3.7198139437040377`*^9, 3.719813949143641*^9}, {3.719814009266486*^9, 
   3.719814013405414*^9}, {3.719814735195671*^9, 3.719814834723441*^9}, {
   3.719814966709803*^9, 3.719814986311493*^9}, {3.719815021157157*^9, 
   3.719815065362582*^9}, {3.719897316501767*^9, 3.7198973890876837`*^9}, 
   3.7198975465478697`*^9, {3.719897683742979*^9, 3.719897700297937*^9}, 
   3.7198977339906187`*^9, {3.720863409120756*^9, 3.720863496697872*^9}, {
   3.7208635340657053`*^9, 3.720863570229611*^9}, {3.725952149208394*^9, 
   3.72595226682574*^9}, {3.7259523416106052`*^9, 3.725952358023943*^9}, {
   3.7259523957082987`*^9, 3.7259523969779654`*^9}, {3.725952442347457*^9, 
   3.725952462373863*^9}, 3.732858418529718*^9, {3.732858496511003*^9, 
   3.732858501092186*^9}, {3.732863829069886*^9, 3.732863829357008*^9}, {
   3.732864040483055*^9, 3.7328640544642677`*^9}, {3.7328640963080397`*^9, 
   3.732864131604128*^9}, {3.7328642159922247`*^9, 3.732864240276579*^9}, 
   3.732864334632751*^9, {3.732864378851842*^9, 3.732864393197063*^9}, {
   3.732864500249205*^9, 3.732864513342328*^9}, {3.7328645669604683`*^9, 
   3.7328645678775578`*^9}, {3.732864814119576*^9, 3.732864866124075*^9}, {
   3.7328649189399*^9, 3.73286496860963*^9}},
 CellLabel->"In[32]:=",
 CellID->1567762055,ExpressionUUID->"0fc23194-3459-48aa-9064-6225d1c799bb"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Data entry\"\>", "\<\"Description\"\>", "\<\"Symbols\"\>", \
"\<\"Authors\"\>", "\<\"Title\"\>", "\<\"Journal, publisher or \
university\"\>", "\<\"Year\"\>", "\<\"Link or ISBN\"\>"},
    {"\<\"Periodic table\"\>", "\<\"element names, atomic mass\"\>", \
"\<\"$PeriodicTable\"\>", "\<\"\[LongDash]\"\>", "\<\"Atomic Weights of the \
Elements 2015\"\>", "\<\"(web page)\"\>", "\<\"2015\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://www.sbcs.qmul.ac.uk/iupac/AtWt/\"\>", True->
        StyleBox["\<\"http://www.sbcs.qmul.ac.uk/iupac/AtWt/\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://www.sbcs.qmul.ac.uk/iupac/AtWt/"], None},
       ButtonNote->"http://www.sbcs.qmul.ac.uk/iupac/AtWt/"],
      Annotation[#, "http://www.sbcs.qmul.ac.uk/iupac/AtWt/", "Hyperlink"]& ]},
    {"\<\"Scattering cross sections\"\>", "\<\"tabulated data for \
photoelectric, Rayleigh, Compton and total scattering\"\>", \
"\<\"AttenuationCoefficient\"\>", "\<\"Tom Schoonjans et al.\"\>", \
"\<\"xraylib: a library for interactions of X-rays with matter\"\>", \
"\<\"(web page)\"\>", "\<\"September 2017 (v. 3.3.0)\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{False->"\<\"https://github.com/tschoonj/xraylib\"\>", 
        True->
        StyleBox["\<\"https://github.com/tschoonj/xraylib\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["https://github.com/tschoonj/xraylib"], None},
       ButtonNote->"https://github.com/tschoonj/xraylib"],
      Annotation[#, "https://github.com/tschoonj/xraylib", "Hyperlink"]& ]},
    {"\<\"Scattering factors\"\>", "\<\"tabulated coefficients\"\>", \
"\<\"AtomicScatteringFactor\"\>", "\<\"D. Waasmaier and A. Kirfel\"\>", \
"\<\"New analytical scattering-factor functions for free atoms and ions\"\>", \
"\<\"Acta Cryst. (1995). A51, 416-431\"\>", "\<\"1995\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"https://doi.org/10.1107/S0108767394013292\"\>", True->
        StyleBox["\<\"https://doi.org/10.1107/S0108767394013292\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["https://doi.org/10.1107/S0108767394013292"], None},
       ButtonNote->"https://doi.org/10.1107/S0108767394013292"],
      Annotation[#, "https://doi.org/10.1107/S0108767394013292", 
       "Hyperlink"]& ]},
    {"\<\"Scattering factors\"\>", "\<\"tabulated data for calculating \\!\\(\
\\*SubscriptBox[\\(f\\), \\(0\\)]\\), \\!\\(\\*SuperscriptBox[\\(f\\), \\(\
\[Prime]\\)]\\) and \\!\\(\\*SuperscriptBox[\\(f\\), \\(\[DoublePrime]\\)]\\)\
\"\>", "\<\"AtomicScatteringFactor\"\>", "\<\"D. T. Cromer and D. A. Liberman\
\"\>", "\<\"Anomalous dispersion calculations near to and on the \
long-wavelength side of an absorption edge\"\>", "\<\"Acta Cryst. (1981). \
A37, 267-268\"\>", "\<\"1981\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"https://doi.org/10.1107/S0567739481000600\"\>", True->
        StyleBox["\<\"https://doi.org/10.1107/S0567739481000600\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["https://doi.org/10.1107/S0567739481000600"], None},
       ButtonNote->"https://doi.org/10.1107/S0567739481000600"],
      Annotation[#, "https://doi.org/10.1107/S0567739481000600", 
       "Hyperlink"]& ]},
    {"\<\"Scattering factors\"\>", "\<\"tabulated data for calculating \\!\\(\
\\*SubscriptBox[\\(f\\), \\(0\\)]\\), \\!\\(\\*SuperscriptBox[\\(f\\), \\(\
\[Prime]\\)]\\) and \\!\\(\\*SuperscriptBox[\\(f\\), \\(\[DoublePrime]\\)]\\)\
\"\>", "\<\"AtomicScatteringFactor\"\>", "\<\"\[LongDash]\"\>", "\<\"ESRF \
Anonymous FTP Server\"\>", "\<\"(web page)\"\>", "\<\"2013\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://ftp.esrf.eu/scisoft/xop2.3/DabaxFiles/\"\>", True->
        
        StyleBox["\<\"http://ftp.esrf.eu/scisoft/xop2.3/DabaxFiles/\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://ftp.esrf.eu/scisoft/xop2.3/DabaxFiles/"], None},
       ButtonNote->"http://ftp.esrf.eu/scisoft/xop2.3/DabaxFiles/"],
      Annotation[#, "http://ftp.esrf.eu/scisoft/xop2.3/DabaxFiles/", 
       "Hyperlink"]& ]},
    {"\<\"Space groups\"\>", "\<\"symmetry operations of unconventional space \
groups\"\>", "\<\"$SpaceGroups\"\>", "\<\"Grosse-Kunstleve et al.\"\>", \
"\<\"cctbx - Browse alternative space group setting\"\>", \
"\<\"\[LongDash]\"\>", "\<\"\[LongDash]\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://cci.lbl.gov/cctbx/browse_settings.html\"\>", True->
        
        StyleBox["\<\"http://cci.lbl.gov/cctbx/browse_settings.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://cci.lbl.gov/cctbx/browse_settings.html"], None},
       ButtonNote->"http://cci.lbl.gov/cctbx/browse_settings.html"],
      Annotation[#, "http://cci.lbl.gov/cctbx/browse_settings.html", 
       "Hyperlink"]& ]},
    {"\<\"Transformation matrices\"\>", "\<\"matrices that tansforms A, B and \
C-centred cells\"\>", "\<\"$TransformationMatrices\"\>", "\<\"Carmelo \
Giacovazzo et al.\"\>", "\<\"Fundamentals of Crystallography (p. 141)\"\>", "\
\<\"Oxford University Press\"\>", "\<\"1992 (1st. ed.)\"\>", \
"\<\"9780198555780\"\>"},
    {"\<\"Transformation matrices\"\>", "\<\"matrix for transforming from \
crystallographic\\nto Cartesian system\"\>", \
"\<\"$TransformationMatrices\"\>", "\<\"Maureen M. Julian\"\>", \
"\<\"Foundations of Crystallography with Computer Applications\"\>", "\<\"CRC \
Press\"\>", "\<\"2015 (2nd ed.)\"\>", "\<\"9781466552920\"\>"},
    {"\<\"Unconventional space groups\"\>", "\<\"Hall symbols\"\>", \
"\<\"$SpaceGroups\"\>", "\<\"R.W. Grosse-Kunstleve\"\>", "\<\"cctbx - \
Multiple cell C or F and triple cell H settings\"\>", "\<\"\[LongDash]\"\>", \
"\<\"October 2001\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"https://cci.lbl.gov/cctbx/multiple_cell.html\"\>", True->
        StyleBox["\<\"https://cci.lbl.gov/cctbx/multiple_cell.html\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["https://cci.lbl.gov/cctbx/multiple_cell.html"], None},
       ButtonNote->"https://cci.lbl.gov/cctbx/multiple_cell.html"],
      Annotation[#, "https://cci.lbl.gov/cctbx/multiple_cell.html", 
       "Hyperlink"]& ]},
    {"\<\"Unconventional space groups\"\>", "\<\"Symmetry operations and \
symbols of space groups\\nnot in the International Tables for Crystallography\
\"\>", "\<\"$SpaceGroups\"\>", "\<\"Jeremy Karl Cockcroft\"\>", "\<\"A \
Hypertext Book of Crystallographic Space Group Diagrams and Tables\"\>", \
"\<\"Birkbeck College, University of London\"\>", "\<\"2016-02-01\"\>", 
     TagBox[
      ButtonBox[
       PaneSelectorBox[{
        False->"\<\"http://img.chem.ucl.ac.uk/sgp/mainmenu.htm\"\>", True->
        StyleBox["\<\"http://img.chem.ucl.ac.uk/sgp/mainmenu.htm\"\>", 
         "HyperlinkActive"]}, Dynamic[
         CurrentValue["MouseOver"]],
        BaseStyle->{"Hyperlink"},
        FrameMargins->0,
        ImageSize->Automatic],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL["http://img.chem.ucl.ac.uk/sgp/mainmenu.htm"], None},
       ButtonNote->"http://img.chem.ucl.ac.uk/sgp/mainmenu.htm"],
      Annotation[#, "http://img.chem.ucl.ac.uk/sgp/mainmenu.htm", 
       "Hyperlink"]& ]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}},
   GridBoxBackground->{"Columns" -> {None}, "Rows" -> {None, {None, 
        RGBColor[0.97, 0.97, 0.97]}}},
   GridBoxDividers->{
    "Columns" -> {False, {True}, False}, "Rows" -> {False, True}},
   GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{
    "Columns" -> {{Automatic}}, 
     "RowsIndexed" -> {
      1 -> {FontWeight -> "SemiBold", 11, FontFamily -> "Verdana"}}, 
     "ItemsIndexed" -> {{{2, 11}, {1, 1}} -> {
        "Text", FontWeight -> "SemiBold", Italic, 10}, {{2, 11}, {2, 2}} -> {
        "Text", Italic, 10}, {{2, 11}, {3, 3}} -> {
        "Text", FontFamily -> "Source Code Pro"}, {{2, 11}, {4, 4}} -> 
       "Text", {{2, 11}, {5, 5}} -> {"Text", Italic}, {{2, 11}, {6, 6}} -> 
       "Text", {{2, 11}, {7, 7}} -> "Text", {{2, 11}, {8, 8}} -> "Text"}}],
  "Grid"]], "Output",
 ShowCellLabel->False,
 CellChangeTimes->{
  3.719813798491048*^9, 3.7198139499289417`*^9, 3.7198140140685*^9, 
   3.719814812516955*^9, 3.719814992387107*^9, {3.719815032571476*^9, 
   3.719815065705044*^9}, 3.719897392847787*^9, 3.7198977363045197`*^9, 
   3.72086349781446*^9, 3.720863535523757*^9, 3.720863570576036*^9, 
   3.7259523818917418`*^9, 3.725952465944523*^9, 3.73285842612287*^9, 
   3.7328585037478733`*^9, 3.732864136624592*^9, 3.732864397352488*^9, 
   3.7328645139776697`*^9, 3.732864869025724*^9, 3.732864969766388*^9},
 CellLabel->"Out[37]=",
 CellID->1999329823,ExpressionUUID->"bd609c4c-7571-4ece-992e-41ca6b139fae"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "TutorialMoreAboutSection",
 CellID->23220180,ExpressionUUID->"e8c0a58a-35ba-427c-9b04-4aae15165444"],

Cell["XXXX", "TutorialMoreAbout",
 CellID->1567025153,ExpressionUUID->"c2798054-4812-4ca8-9bc9-e777a96efd86"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Tutorials", "RelatedTutorialsSection",
 CellID->415694126,ExpressionUUID->"74592bae-c6a6-46f7-b577-45a78fb2dfff"],

Cell["XXXX", "RelatedTutorials",
 CellID->806871991,ExpressionUUID->"2c27c02c-fc27-46f6-bb1b-54f1a9e2bd7d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Wolfram Education Group Courses", "TutorialRelatedLinksSection",
 CellID->415694148,ExpressionUUID->"604c62c8-9a92-4914-9a20-ebb46a38659f"],

Cell["XXXX", "TutorialRelatedLinks",
 CellID->415694149,ExpressionUUID->"122bf86e-a0fe-432d-bc1d-547fb93a8098"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{720, 791},
WindowMargins->{{920, Automatic}, {Automatic, 258}},
FrontEndVersion->"10.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 10, \
2015)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "TutorialPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",
 CellID->1122911449],
Cell[1309, 41, 136, 2, 30, "Categorization",
 CellID->686433507],
Cell[1448, 45, 175, 3, 30, "Categorization",
 CellID->605800465],
Cell[1626, 50, 174, 3, 30, "Categorization",
 CellID->468444828],
Cell[1803, 55, 219, 3, 30, "Categorization"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2059, 63, 111, 1, 29, "KeywordsSection",
 CellID->1427428552],
Cell[2173, 66, 100, 1, 70, "Keywords",
 CellID->1251852827]
}, Closed]],
Cell[CellGroupData[{
Cell[2310, 72, 108, 1, 19, "DetailsSection",
 CellID->307771771],
Cell[2421, 75, 118, 2, 70, "Details",
 CellID->218895918],
Cell[2542, 79, 124, 2, 70, "Details",
 CellID->350963985],
Cell[2669, 83, 121, 2, 70, "Details",
 CellID->795871300],
Cell[2793, 87, 126, 2, 70, "Details",
 CellID->199739161],
Cell[2922, 91, 115, 2, 70, "Details",
 CellID->40625308],
Cell[3040, 95, 116, 2, 70, "Details",
 CellID->357121918],
Cell[3159, 99, 117, 2, 70, "Details",
 CellID->35949532],
Cell[3279, 103, 133, 2, 70, "Details",
 CellID->929432370],
Cell[3415, 107, 122, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[3574, 114, 242, 3, 106, "Title",
 CellID->509267359],
Cell[3819, 119, 270, 5, 23, "Text",
 CellID->1534169418],
Cell[CellGroupData[{
Cell[4114, 128, 171, 2, 43, "Section",
 CellID->746296040],
Cell[CellGroupData[{
Cell[4310, 134, 26444, 545, 19, "Input",
 CellOpen->False,
 CellID->53842780],
Cell[30757, 681, 36208, 828, 812, "Output",
 CellID->1040009793]
}, Open  ]],
Cell[66980, 1512, 774, 17, 29, "Caption",
 CellID->1095018320]
}, Open  ]],
Cell[CellGroupData[{
Cell[67791, 1534, 312, 7, 43, "Section",
 CellID->1837080108],
Cell[CellGroupData[{
Cell[68128, 1545, 15637, 329, 19, "Input",
 CellOpen->False,
 CellID->2077245372],
Cell[83768, 1876, 5185, 84, 144, "Output",
 CellID->320598152]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[89002, 1966, 289, 4, 43, "Section",
 CellID->1666510947],
Cell[CellGroupData[{
Cell[89316, 1974, 22072, 443, 19, "Input",
 CellOpen->False,
 CellID->1567762055],
Cell[111391, 2419, 10171, 209, 248, "Output",
 CellID->1999329823]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[121611, 2634, 120, 1, 72, "TutorialMoreAboutSection",
 CellID->23220180],
Cell[121734, 2637, 109, 1, 22, "TutorialMoreAbout",
 CellID->1567025153]
}, Open  ]],
Cell[CellGroupData[{
Cell[121880, 2643, 127, 1, 72, "RelatedTutorialsSection",
 CellID->415694126],
Cell[122010, 2646, 107, 1, 22, "RelatedTutorials",
 CellID->806871991]
}, Open  ]],
Cell[CellGroupData[{
Cell[122154, 2652, 153, 1, 72, "TutorialRelatedLinksSection",
 CellID->415694148],
Cell[122310, 2655, 111, 1, 22, "TutorialRelatedLinks",
 CellID->415694149]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
